6  Descriptive Statistics: Morbidity Datasets

Code
# Bring in final combined database
##-- CA + LA + Population
df <- read.csv(file = here("_data/cleaned_data/combined_df.csv"))

##-- final individual, cleaned databases:
ca_df <- read.csv(file = here("_data/cleaned_data/cleaned_ca_df.csv"))
la_cnty_df <- read.csv(file = here("_data/cleaned_data/cleaned_la_cnty_df.csv"))
pop_df <- read.csv(file = here("_data/cleaned_data/cleaned_pop_df.csv"))

to do:

6.1 Calculating Crude Rates

see functions found in: “_functions/calc_total_rates_pop.R”

  • add explanation / documentation of functions here and what they do
Code
by_HOR_pop <-
  calc_total_rates_pop(df, pop_col = total_HOR_pop, health_officer_region)


by_cnty_pop <-
  calc_total_rates_pop(df, pop_col = total_cnty_pop, health_officer_region, county) 


by_age_total <- 
  calc_total_rates_pop(df, pop_col = pop, age_cat) 


by_sex_total <-
  calc_total_rates_pop(df, pop_col = total_sex_pop, sex) 


by_race_total <-
  calc_total_rates_pop(df, pop_col = total_race_pop, race_long)

6.1.1 Infection Rates by Health Officer Region

health_officer_region total_pop inf_rate_100k sev_rate_100k unrec_rate_100k
Greater Sierra Sacramento 2973210 1184.0 72.3 303.1
Los Angeles 9825708 1402.5 41.3 172.2
Rural North 683715 434.2 31.4 129.9
Central California 4432134 902.8 23.8 100.2
Southern California 12802429 626.2 17.3 73.4
Bay Area 8391874 189.5 11.4 48.2

6.1.2 Top 10 Highest Severe Infection Rates by County

county total_pop inf_rate_100k sev_rate_100k unrec_rate_100k
Inyo 18731 4623.4 427.1 1590.9
Imperial 179639 10494.4 338.5 1364.4
Sierra 3152 2918.8 317.3 1269.0
Alpine 1165 2145.9 257.5 1373.4
Tehama 64677 3110.8 218.0 926.1
Plumas 18955 3001.8 211.0 933.8
Calaveras 44605 2475.1 190.6 784.7
Mariposa 16860 2437.7 189.8 806.6
Modoc 8446 2439.0 189.4 923.5
San Luis Obispo 280251 2158.8 173.4 707.6

6.1.3 Age Group

age_cat total_pop inf_rate_100k sev_rate_100k unrec_rate_100k
0-17 34155 51456.6 55.6 1124.3
18-49 99574 138393.6 1611.9 7271.0
50-64 51121 49251.8 289.5 2652.5
65+ 57881 86733.1 7014.4 29232.4

6.1.4 By Sex

  • initial note: males have higher infection rate; but females have higher rates of severe infections and unrecovered
sex total_pop inf_rate_100k sev_rate_100k unrec_rate_100k
FEMALE 849329 15316.8 478.0 1992.2
MALE 806708 17082.3 419.6 1784.0

6.1.5 By Race and Ethnicity

  • initial note: Hispanic population has highest infection rate, severe infection rate, and unrecovered rate – all across the board – this community is being impacted the most.
race_long total_pop inf_rate_100k sev_rate_100k unrec_rate_100k
Hispanic (any race) 335452 41080.1 1015.3 4295.7
White, Non-Hispanic 485940 11033.5 835.5 3481.9
American Indian or Alaska Native, Non-Hispanic 4569 11775.0 744.1 2626.4
Black, Non-Hispanic 157817 11989.2 621.0 2577.0
Asian, Non-Hispanic 568612 5079.7 345.9 1400.1
Native Hawaiian or Pacific Islander, Non-Hispanic 14710 6233.9 163.2 666.2
Multiracial (two or more of above races), Non-Hispanic 88937 6127.9 133.8 579.1